home *** CD-ROM | disk | FTP | other *** search
- Program ex11;
-
- { Program to demonstrate the TStream.GetPos function }
-
- Uses objects;
-
- Var L : String;
- S : PStream;
-
- begin
- L:='Some kind of string';
- S:=New(PMemoryStream,Init(100,10));
- Writeln ('Stream position before write: ',S^.GetPos);
- S^.WriteStr(@L);
- Writeln ('Stream position after write : ',S^.GetPos);
- Dispose(S,Done);
- end.